home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / dev / gcc / ixemulsrc.lha / ixemul-41.4 / gnulib / fixsfsi.c < prev    next >
C/C++ Source or Header  |  1994-08-19  |  385b  |  24 lines
  1. #include "common.h"
  2. #ifdef IEEE_SINGBAS
  3. #include <inline/mathieeesingbas.h>
  4. #else
  5. #include <inline/mathffp.h>
  6. #include <inline/mathtrans.h>
  7. #endif
  8.  
  9. SItype
  10. __fixsfsi (a)
  11.      FLOAT a;
  12. {
  13. #ifdef IEEE_SINGBAS
  14.   return IEEESPFix(a);
  15. #else
  16. #if 1
  17.   return SPFix( SPFieee(a));
  18. #else
  19.   /* don't know.. */
  20.   return SPFix( SPAdd (SPFieee(a), SPFieee( *(long *)(float[]){0.5}) ));
  21. #endif
  22. #endif
  23. }
  24.